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ALPHA-NUMERIC DISPLAY PROGRAM 


DECUS Program Library Write-up 


DECUS NO. 8-514 


A general description of this program was published by Ralph 
Norman Haber as "An alpha-numeric display program for a PDP-8 ", in 
Behavioral Research Methods and Instrumentation , 1971, 3, pp. 141-145. 
This interpretation differs in only small details from the published 
version as noted below. The published article will be helpful in 
understanding the purposes and strategies of the program. 

The program requires a Driver, written in FORTRAN, a character 
display subroutine, and a button sensing subroutine. Each of these 
are described. 


FORTRAN Driver Program 

The purpose for the Driver is to operate the display subroutine 
after it has accepted all the parameter values for the next trial. The left side of 
Figure 1 provides the flow chart for the program, and Table 1 lists 
the statements. The following comments serve to annotate the program. 

(Note that the parameter codes given in the published article are 

f 

slightly different from the version here. The present ones are listed 
in Table 2 below.) 

The two Dimension statements create storage arrays for the 
character (IALP), durations (IDUR), length of strings (LENG), ISI 
(ISI), X locations (IXLO), Y locations (IYLO), number of strings 
(ISTR), number of cycles(IREP), and an array for storage of single 
value control characters (IARR). The printout from the symbol-print 
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DIMENSION IALPC 169 ) , I DURCI 6), L EN G( 16 ), ISIC 16> ,I XLOC 16> * IYLO (16) 
DIMENSION ISTRC 16). IKEPC 16>. IARRC9) 

IRT=IncES=0 
1 l FORMAT (I) 


2; FOxMATC/ > 

3; TYPE 2 

ACCEPT 1, INPUT 
IF(INPUT-10)29> 20.32 
32; IF(16-INPUT)29.29.20 
At DO 5 Jl=1,100 

ACCEPT 1, IALPCJ1) 

IF(IALPC J1)-99)5.3,5 
5; CONTINUE 

CO TO 3 
6 ,* DO 7 J2= 1.16 

ACCEPT 1, IDUR(J2> 

IF(IDURCJ2)-99)7.3,7 
7; CONTINUE 
" GO TO 3 

r 8; DO 9 J3= 1 . 16 

ACCEPT 1, ISTRCJ3) 
IFCISTR(J3)-99)9,3.9 
9; CONTINUE 

’ GO TO 3 

10; DO 11 J7=1.16 

ACCEPT 1, IREPCJ7) 

IF(InEPCJ7J-99)11.3.1 1 
11; CONTINUE 

GO TO 3 

12; DO 13 J8= 1,16 

ACCEPT 1, LENGCJ8) 
IFCLENGCJS>-99>13,3.13 
13; CONTINUE 

GO TO 3 

14; DO 15 J4=1,16 

ACCEPT 1, ISICJ4) 

IFCISI(J4)-99)15,3,15 
15; CONTINUE 
r GO TO 3 

16; DO 17 J5=1»16 

ACCEPT 1, IXLOCCJ5) 

IFCIXLOCCJ5)-99)17,3,17 
17; CONTINUE 

GO TO 3 

18; DO 19 J6=1,16 

ACCEPT 1, IYLOC(J6) 

IFCIYLOCCJ6)-99)19,3, 19 
19; CONTINUE 

GO TO 3 

20; ACCEPT 1,IARRCINPUT-9) 

GO TO 3 

26; PAUSE 3584 

IFCIRES-3)26,3,26 
27; PAUSE 3584 

IFCI RES-4)27,28,27 
28; PAUSE 3520 


• Table 1. 

FORTRAN Driver Program 
Statement Listing 

--- i 


IFCIAKRC6)>20,3,30 

29 J GO TO(28,4,6,8, 10, 12, 14,16. 18,3.3,3,3,3,3,26,27),INPUT 
GO TO 3 

30.t PAUSE 3584 

TYPE 1, IaRRC 3),IRES,I AT 
I i<T = I kES= O 
GO TO 3 


END 


3 






attached to Tiable 1 and shows the locations in memory that these 
arrays are assigned by the FORTRAN compiler. The starting address 
of each of these arrays are used by the character subroutine as addresses 
to get each of the parameters as needed during each trial. The locations 
which store the reaction time and the subject's response code are 
initially set to zero. 

The program begins operation.with Statement 3, in which a single 
number (INPUT) is accepted from the typewriter. INPUT is used to 
specify which parameter is to be entered (See Table 2). If INPUT 
is less than 10 or greater than 15, the program jumps to Statement 29, 
which sorts out which one of the multivalued parameters is to be loaded. 
If INPUT is between 10 and 15, Statement 20 specifies the acceptance 
of any one of the six single-valued parameters. These are stored 
in the Dimension IARR, depending upon the value of INPUT. Thus, the 
single number following INPUT=10 would be stored in IARR^, and the 
number following INPUT-15 would be stored in ARRAYg. 

Statement 29 handles the multivalued parameters and the operations 
parameters. If INPUT is 2 through 9, control is shifted to Statements 
4 through 18, respectively. For example, if INPUTS, the characters, 
defined numerically,are accepted. Statement 4 indicates that you will 
execute a loop up to 100 times, each time accepting a number which 
is stored in the dimension called IALP. After each character number is 
accepted, the if statement tests to see whether the number was 99. 

If it was, the loop is terminated immediately, indicating that the 
last character has been entered. If it is not a 99, it continues 
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Table 2 

A summary of the parameter codes. 


Control Characters to Define Parameters for the Driver Program 


1 

2 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


initiate trial immediately 

character names for up to 100 characters 

number of strings 

number of cycles 

length of each string 

interstimulus interval between each string 
X location of each string 
Y location of each string 
vertical spacing between rows 

horizontal spacing between characters on each row 
trial number 

vertical spacing between points within each 
character 

horizontal spacing between each point within 
each character 

reaction time mode control (0 = no reaction) 
switch to permit additional parameter entry 
wait for subject start switch to initiate trial 







in the loop. When one hundred characters have been entered, or a 99 
has been typed, the program returns to Statement 3 and waits for 
another parameter. If INPUT=3, the program will jump to Statement 6, 
where it will accept up to 16 durations, or until it encounters a 99. 

The logic for the Statements 4 through 18 are identical. 

After all the parameters have been entered, then typing INPUT=1 
causes a jump to the display subroutine and immediate beginning of the 
display. INPUT=17 causes a jump to a button sensing «rcfutine which waits 
for the subject to press a start button before the display occurs. 

INPUT=16 causes a wait for a button press which, when pressed, permits 
you to enter further parameters. This procedure is used when some 
of the trial parameters are on paper tape, and some are to be entered 
from the typewriter. This might be needed during pretesting, when 
the value of the durations might not be known yet. 

Statement 28, causing the display to commence, is reached either 

by typing INPITT=2 or INPUT=17 (and the subject has pressed the start 

button). After the trial ends, IARR^ is tested to see if the subject's 

reaction and his reaction time is to be recorded. If IARR is non zero, 

o 

the button sensing subroutine is entered, which counts the number of 
milliseconds that have elapsed since arriving there, and waits for 
the subject to respond with one of two response buttons. When he 
responds the reaction choice and the reaction time are stored. Then the 
driver program types these out, along with the trial number (IARR^). 

This ends the trial. If IARR 6 =0, program control returns for the 
beginning of the next trial, so that the parameter values can be modified. 




In this version of the program the spacing between characters 
and the spacing between points within characters are not preset, 
but must be entered before the first trial. Thus parameters 10, 

11, 13, and 14 must be typed. These need only be entered once before 
the first trial, and need not be altered unless that is an experimental 
parameter. Parameter 12 for the trial number (stored as IARR^), 
should be entered if you are printing reaction times. It is possible 
to rewrite the program with the trial number simply incremented from 
the beginning of the session. I use this version because it provides 
an output which is uniquely linked to the parameter listing. 

Needless to say, it is not necessary to retype any parameter 
between one trial and the next that is not to be changed on the 
next trial. Only those parameters which are changing have to be 
reentered. 

If any modifications are made in the program, several suggestions 
might be of some help. The order in which the dimension statements 
are written determines the locations they are assigned by the FORTRAN 
compiler and given in the symbol print printout. If any of those 
are changed at all, then it is necessary to alter the appropriate 
values in the display subroutine. Thus, while we have made many 
changes in this driver program, we have not made any changes in the 
dimension statements at all. This accounts, for example, for why 
the DO loop in statement 4 only accepts 100 characters even though 
we have storage room for 169. We do not need the other 69, but if 
size of the array is reduced, then you will have to alter about a 
dozen different addresses in the character subroutine. 







This program operates with the paper tape and typewriter input, 
and typewriter output for the reaction time. In this version we are 
using, an ACCEPT statement causes an echo on the teleprinter, so 
that all values are typed out as they are loaded. If you wish to 
suppress the echo, then replace the ACCEPT with READ 1 , the 1^ 
defining teletype and slow speed paper tape inputs. 

If you plan to use the DECtape input, then each of the ACCEPT 
or READ 1 Statements must be changed to a READ 3 Statement, and the 
first Dimension Statement preceeded with a "Define Tape" Statement. 
When this is done, however, the FORTRAN Operating System uses 
nearly an additional 1,000 locations to handle the DECtape controls. 
This does not leave enough room in the Operating System to store the 
character subroutine. Consequently, it is not possible to use 
DECtape inputs for parameters with only 4K of memory. In an 8K 
system, there is no problem at all. If you want to use DECtape but 
have only 4K it is probably possible to rewrite the character program 
in several parts. For example, the first part might be in core and 
would get the particular values for the next trial. Those values 
would be stored, and then that part of the program overlaid with 
the section which handles the display and indexing. There would be 
no need to store in core the 35 bits for each character. All one 
would need is to move into core those characters that are actually 
to be displayed on the current trial. 

This brief description of the driver program plus the flowchart 
and listing should permit its use on any PDP-8 family computer, 
utilizing only 4K of memory. 







Display Subroutine 


The display subroutine occupies from 6,000 to 6,477 (about 
300 ^q locations), though there are a few holes here and there that 
could be filled with other subroutines. The 35 bits for each of the 
64 possible characters are stored in 6,500 to 6,777. A flowchart 
for this subroutine is attached in Figure 2 and an anotated symbolic 
listing of the subroutine is attached in Table 3, 

This subroutine uses the extended arithmetic element of the 
PDP-8 to compute the horizontal and vertical spacing between characters. 
See locations 6,055 - 6,064, and 6,065 - 6,074. If you do have the 
extended arithmetic unit on your PDP-8, then that portion of the 
program would have to be replaced with either a software multiplication 
procedure, or with a more direct procedure for converting the X and 
Y axis values to coordinate values. 

This display subroutine uses a 34D control and a display system 
with a Tektronics 503 scope. There are two places where the display 
instructions are used, one in the main part of the program for 
displaying characters (locations 6,230 and 6,233), and another in 
a subroutine near the end for locating the position in which the 
electron beam rests between assigned positions (locations 6,321 
and 6,324). If your control system uses a different I/O instruction, 
then you would have to make appropriate changes. 
















































































Table 3. 


December, 1971 


Character Display Subroutine 
Ralph Norman Haber 
University of Rochester 


*6000 


6000 

0000 

DISPLAY, 0 

SUBROUTINE LINK 

6001 

1325 

1 AD 

DUR 

LOAD ADDRESS OF FIRST DURATION 

6002 

3326 

DCA 

PAT 

STORE IT 

6003 

1 327 

TAD 

XLOC 

LOAD ADDRESS OF FIRST X LOCATION 

6004 

3330 

DCA 

XL IN 

STORE IT 

6005 

1331 

TAD 

YLOC 

LOAD ADDRESS OF FIRST Y LOCATION 

6006 

3332 

DCA 

YLIN 

STORE IT 

6007 

1333 

TAD 

LENGTH 

LOAD ADDRESS OF LENGTH OF FIRST STRING 

6010 

3334 

DCA 

EXTENT 

STOKE IT 

6011 

1335 

TAD 

NO 

LOAD ADDRESS OF NUMBER OF STRINGS 

6012 

3336 

DCA 

STRING 

STORE IT 

6013 

1337 

TAD 

LETTER 

LOAD ADDRESS OF NAME OF FIRST CHARACTER 

6014 

3340 

DCA 

ALPHA 

STORE IT 

6015 

1341 

TAD 

ISI 

LOAD ADDRESS OF ISI 

6016 

3342 

DCA 

HENRY 

STORE IT 

6017 

1343 

TAD 

REPET 

LOAD ADDRESS OF NUMBER OF REPETITION CYCLES 

6020 

3344 

DCA 

AGAIN 

STORE IT 

6021 

1744 

TOP, 

, TAD I AGAIN 

LOAD NUMBER OF REPETITION CYCLES 

6022 

7041 

CIA 


MAKE IT NEGATIVE 

6023 

7450 

SNA 


ARE THERE ANY MORE CYCLES? 

6024 

5600 

JMP 

I DISPLAY 

NO, EXIT FROM SUBROUTINE 

6025 

3756 

DCA 

I CYCLEI 

YES, STORE IT ON NEXT PAGE OF SUBROUTINE 

6026 

1326 

BEGIN, TAD PAT 

LOAD ADDRESS OF FIRST DURATION 

6027 

3345 

DCA 

EUNICE 

STORE IT 

6030 

1 330 

TAD 

XL IN 

LOAD ADDRESS OF FIRST X LOCATION 

6031 

3346 

DCA 

XPOS 

STORE IT 

6032 

1332 

TAD 

YLIN 

LOAD ADDRESS OF FIRST Y LOCATION 

6033 

3347 

DCA 

YPOS 

STORE IT. 

6034 

1334 

TAD 

EXTENT 

LOAD ADDRESS OF LENGTH OF FIRST STRING 

6035 

3350 

DCA 

NUMBER 

STORE IT 

6036 

1736 

TAD 

I STRING 

LOAD NUMBER OF STRINGS IN FIRST CYCLE 

6037 

7041 

CIA 


MAKE IT NEGATIVE 

6040 

375 1 

DCA 

I SARAHI 

STORE IT ON NEXT PAGE 

6041 

1340 

TAD 

ALPHA 

LOAD ADDRESS OF FIRST CHARACTER 

6042 

3352 

DCA 

JOAN 

STORE IT 

6043 

1342 

TAD 

HENRY 

LOAD ADDRESS OF FIRST ISI 

6044 

3353 

DCA 

GEORGE 

STORE IT 

6045 

1754 

TAD 

I XSHIFT 

TRANSFER VALUE OF X SPACING TO NEXT 

6046 

37 55 

DCA 

I XGAPI J 

PAGE OF SUBROUTINE 

6047 

1753 

BO W. 

, TAD I GEORGE 

LOAD ISI 

6050 

7041 

CIA 


MAKE IT NEGATIVE 

6051 

3757 

DCA 

I MABELI 

STORE IT ON NEXT PAGE 

6052 

174 5 

TAD 

I EUNICE 

LOAD DURATION 

6053 

7041 

CIA 


M AKE IT NEGATIVE 

6054 

3760 

DCA 

I TIMEI 

STORE IT ON NEXT PAGE 

6055 

1754 

TAD 

I XSHIFT 

LOAD X SPACING BETWEEN LETTERS 






6056 

6057 
6060 
6061 
6062 

6063 

6064 

6065 

6066 
6067 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 
6100 
6101 
6102 
6103 
6 104 

6105 

6106 
6107 
6 1 10 
6111 
6112 

6113 

6114 

6115 

6116 
6117 
6120 
6121 
6122 

6123 

6124 

6125 

6126 
6127 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 
6 140 
6 141 
6 142 

6143 

6144 
6 145 
6 146 
6147 
61 50 
6 151 


Tabic 3, Continued 




12 * 


7421 7421 

1746 TAD I XPOS 

3262 DCA .+2 
7405 7405 

0000 0000 
7701 7701 

3361 DCA XBEGIN 
1762 TAD I YSHIFT 
7421 7421 --—-^ 

1747 TAD I YPOS 'N 

3272 DCA .+2 V. 

7405 7405 / 

0000 0000 / 

7701 7701 

3763 DCA I YSTATL_ J 

1352 WOW, TAD JOAN 
3364 DCA ALAN 
1750 TAD I NUMBER 
7041 CIA 

3765 DCA I STEVEI 
1361 TAD XBEGIN 

3766 DCA I XSTATI 
1764 START, TAD I ALAN 
0367 AND MASK 

1370 TAD DICK 

3371 DCA SAM 
1771 TAD I SAM 

3372 DCA TOM 1 

1371 TAD SAM 
1375 TAD DALE 
3371 DCA SAM 
1771 TAD I SAM 

3373 DCA TOM2 
1371 TAD SAM 
1375 TAD DALE 
3371 DCA SAM 
1771 TAD I SAM 

3374 DCA T0M3 
5776 JMP I NEXTI 
7306 DUR, 7306 
0000 PAT, 0 
7226 XLOC, 7226 
0000 XLIN, 0 
7206 YLOC, 7206 
0000 YLIN, 0 
7266 LENGTH, 7266 
0000 EXTENT, 0 
7166 NO, 7166 
0000 STRING, 0 
7326 LETTER, 7326 
0000 ALPHA, 0 
7246 ISI, 7246 
0000 HENRY, 0 
7146 REPET, 7146 
0000 AGAIN, 0 
0000 EUNICE, 0 
0000 XPOS, 0 
0000 YPOS, 0 
0000 NUMBER, 3 
6362 SARAHI, SARAH 


STORE IN MG 

LOAD STARTING X POSITION 
STORE AHEAD 2 LOCATIONS 
MULTIPLY TOGETHER 

STORAGE LOCATION FOR MULTIPLY INSTRUCTIONS 
CLEAR AC AND LOAD PRODUCT INTO AC 
STOhE THE PRODUCT 


REPEAT PROCESS FOR Y POSITION 


LOAD ADDRESS OF FIRST WORD * 

STORE IT ^ 

LOAD LENGTH OF FIRST STRING 

MAKE IT NEGATIVE 

STORE IT ON NEXT PAGE 

LOAD STARTING X AXIS 

STORE ON NEXT PAGE 

LOAD FIRST CHARACTER 

LOOK AT LAST BIT 

ADD 6500 TO GET ADDRESS OF FIRST 12 POINTS 
STORE IT 

LOAD FIRST 12 POINTS 
STORE IT 

LOAD ADDRESS OF FIRST 12 POINTS 
ADD 100 To ADDRESS OF 2ND 12 POINTS 
STORE ADDRESS 
LOAD 2ND 12 POINTS 
STORE THEM 

LOAD ADDRESS OF 2ND 12 POINTS 


ADD 100 TO GET ADDRESS OF 3RD 12 POINTS 
STORE IT 

LOAD 3RD 12 POINTS 
STORE THEM 



JUMP TO NEXT PAGE 

LOCATION WHERE FORTRAN ARRAY FOR 
DURATION BEGINS 

.'LOCATION WHEnE FORTRAN AhRAY FOR 
X LOCATION BEGINS 


LOCATION WHERE FORTRAN ARRAY FOR 
Y LOCATION BEGINS 
LOCATION WHERE FOniKAN ARRAY FOR 


LENGTH OF STRINGS' BEGINS 


LOCATION WHERE F'ORTRAN ARRAY FOR 
NAME OF CHARACTERS BEGINS 
LOCATION WHERE FORTRAN ARRAY FOR 
ISI BEGINS 

LOCATION WHtrtE FORTRAN ARRAY FOR 
NUMBER OF CYCLES BEGINS 
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i j 


6 152 

0B00 

JOAN, 0 

6 1 53 

0000 

GEORGE* 0 

6154 

7 1 36 

XSHIFT, 7136 

6155 

6352 

XGAPI, XGAP 

6156 

6450 

CYCLEI* CYCLE 

6157 

6356 

MABELI* MABEL 

6160 

6354 

TIM El* TIME 

6161 

0000 

XBEGIN, 0 

6162 

7135 

YSHIFT, 7135 

6163 

6333 

YSTATI* YSTART 

6164 

0000 

ALAN, 0 

6165 

6350 

STEVEI* STEVE 

6166 

6331 

XSTATI, XSTART 

6167 

0077 

MASK* 0077 

6170 

6500 

DICK* 6500 

6171 

0000 

SAM* 0 

6172 

0000 

TOM 1 * 0 

Z 6173 

0000 

T0M2* 0 

^6174 

0000' 

T0M3* 0 

6175 

0100 

DALE, 0100 

6176 

6200 

NEXTI, NEXT 



*6200 

6200 

1327 

NEXT* TAD FRANK 

6201 

3330 

DCA HARRY 

6202 

1331 

TAD XSTART 

6203 

3332 

DCA XAXIS 

6204 

1333 

TAD YSTART 

6205 

3334 

DCA YAXIS 

6206 

1335 

TAD PI 4 

6207 

3336 

DCA BILL 

6210 

1337 

TAD C5 

6211 

3340 

DCA PETE 

6212 

1341 

TAD R7 

6213 

3342 

DCA FRED 

6214 

1 743 

TAD I XROW 

6215 

3345 

DCA XSPACE 

6216 

1 744 

TAD I YHIGH 

6217 

3346 

DCA YSPACE 

6220 

1730 

HERE* TAD I HARRY 

6221 

3347 

DCA JEFF 

6222 

1 347 

NOW, TAD JEFF 

6223 

7004 

RAL 

6224 

3347 

DCA JEFF 

6225 

7420 

SNL 

6226 

5235 

JMP OK 

6227 

1332 

TAD XAXIS 

6230 

6053 

6 v 53 

6231 

7200 

CLA 

6232 

1334 

TAD YAXIS 

6233 

6067 

6067 

6234 

7200 

CLA 

6235 

2342 

OK, ISZ FRED 

6236 

5240 

JMP .+2 

6237 

5251 

JMP THIS 

6240 

1 334 

TAD YAXIS 

6241 

1 346 

TAD YSPACE 

6242 

3334 

DCA YAXIS 

6243 

2336 

BUT* ISZ BILL 

6244 

5222 

JMP NOW 

6245 

2330 

ISZ HARRY 


LOCATION OF FO HI KAN VARIABLE FOR 

VALLE OF X SPACING BETWEEN POINTS 
BEGINS 


LOCATION WHERE FORTRAN ARRAY FOR 

VALLE OF Y SPACING BETWEEN POINTS 
BEGINS 


LOAD LOCATION OF FIRST 12 POINTS 
STORE IT 

INDEX FOR X AXIS F'O R FIRST POINT 
STORE. IT 

INDEX FOR Y AXIS OF FIRST POINT 
STORE IT 

INDEX FOR 12 POINTS 
STORE 

INDEX FOR 5 COLUMNS 
STORE 

INDEX FOR 7 ROWS 
STORE 

LOAD INDEX FOR HORIZONTAL SPACE BETWEEN POINTS 
:STORE 

LOAD INDEX FOR VERTICAL SPACE BETWEEN POINTS 
STORE 

LOAD FIRST 12 POINTS 

STORE 

RELOAD 

SHIFT 1 BIT TO LEFT 
STORE 

I S LINK = 1? 

NO* DO NOT DISPLAY 

YES* LOAD X AXIS 
PUT IT IN X BUFFER 
CLEAR AC 
LOAD Y AXIS 

r| U Lo T ,? N Y BUFFER ' AND DISPLAY POINT 
CLEAR AC 

IS FIRST COLUMN OF 7 POINTS DONE’' 

NO 

YES 

LOAD Y AXIS 
INCREMENT ONE UNIT 
RESTORE 

ARE FIRST |2 POINTS DONE? 


YES 


REINDEX FOR NEXT 12 POINTS 
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Table 

6246 

1 335 

TAD P14 

6247 

3336 

DCA BILL 

62 50 

5220 

JMP HERE 

6251 

2340 

THIS, ISZ PETE 

6252 

52 54 

JMP .+2 

6253 

5264 

JMP MORE 

6254 

1 332 

TAD XAXIS - 

6255 

1 345 

TAD XSPACE ^ 

6256 

3332 

DCA XAXIS J 

6257 

1333 

TAD YSTART -— 

6260 

3334 

DCA YAXIS —y 

6261 

1341 

TAD R7 ' 

6262 

3342 

DCA FRED V 

6263 

5243 

JMP BUT 

6264 

2350 

MORE, ISZ STEVE 

6265 

5267 

JMP .+2 

6266 

5274 

JMP COUNT 

6267 

2751 

ISZ I ALANI 

6270 

1331 

TAD XSTART-n 

6271 

1352 

TAD XGAP L 

6272 

3331 

DCA XSTART 

6273 

5753 

JMP I STARTI 

6274 

2354 

COUNT, ISZ TIME 

6275 

5755 

JMP I WOWI 

6276 

1356 

TAD MABEL 

6277 

7440 

SZA 

6300 

5302 

JMP .+2 

6301 

5312 

JMP SAID 

6302 

3357 

DCA CORA 

6 30 3 

4316 

JMS END 

6304 

1360 

LOOP, TAD M260 

6305 

3361 

DCA LOW-^ 

6306 

2361 

ISZ LOU 

6307 

5306 

JMP .-1 __} 

6310 

2357 

ISZ CORA 

631 1 

5304 

JMP LOOP 

6312 

2362 

SAID, ISZ SARAH 

6313 

5763 

JMP I HOPEI 

6314 

4316 

JMS END 

6315 

5764 

JMP I MAYBEI 

6316 

0000 

END, 0 

6317 

7200 

CLA - 

6 320 

1765 

TAD I XEND 

6 321 

6053 

6053 

6 322 

7200 

cla r 

6323 

1766 

TmD I YEND l 

6324 

6067 

6067 

6325 

7200 

CLA / 

6326 

5716 

JMP I END ---- 

6327 

6172 

FRANK, TOM1 

6330 

0000 

HARRY, 0 

6331 

0000 

XSTART, 0 

6332 

0000 

XAXIS, 0 

6333 

0000 

YSTART, 0 

6334 

0000 

YAXIS, 0 

6335 

7764 

P14, 7764 

6336 

0000 

BILL, 0 

6337 

7773 

C5, 7773 

6 340 

0030 

PETE, 2 

6341 

777 1 

R7, 7 77 1 


3, Continued 


CON I IN UL WITH NEXT 12 POINTS 
A HE ALL 5 COLUMNS DONE? 

NO 

YES 

REINDEX FOR NEXT COLUMN 


RESET Y AXIS TO BOTTOM 

REINDEX FOR 7 ROWS 
CHECK FOR 12 POINTS 

ARE ALL CHARACTERS IN FIRST STRING DONE? 
NO 
YES 

ADD 1 TO ADDRESS OF CHARACTER STRING Q 

MOVE X AXIS OVER BY SPACE BETWEEN 
CHARACTER 
DO MORE LETTERS 

IS FIRST STRING DISPLAYED ENOUGH TIMES? 
NO, DO IT SOME MORE 
YES, LOAD ISI 

IS THERE ANY TIME BETWEEN THIS STRING 
YES AND NEXT? 

NO, GO TO NEXT STRING 
RESTORE ISI 

SUBROUTINE TO LOCATE FIXATION POINT 
DURING ISI 

LOOP TO WAIT 1 MILLISECOND 

HAVE WE WAITED LONG ENOUGH IN ISI? 

NO, WAIT SOME MORE _ 

YES, HAVE ALL STRINGS BEEN DISPLAYED ONS# 
NO, DO MORE STRINGS 
YES, RESET FIXATION POINT 
CHECK TO SEE IF ALL STRINGS ARE TO BE 
RECYCLED. 


SUBROUTINE TO LOCATE FIXATION POINTS 
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6342 

0000 

6343 

7141 

6344 

7140 

6345 

0000 

6346 

0000 

6347 

0000 

6350 

0000 

6 351 

6164 

6352 

0000 

6353 

6104 

6354 

0000 

6355 

6075 

6356 

0000 

6357 

0000 

6360 

7300 

6361 

0000 

^>362 

0000 

^6363 

6400 

6364 

6411 

6365 

7145 

6366 

7144 

6367 

4772 

6370 

7402 

6 371 

5367 

6372 

6000 

6400 

2640 

6401 

2641 

6402 

2642 

6403 

2643 

6404 

2644 

6405 

1645 

6406 

7001 

6407 

3646 

6410 

5647 

^6 41 1 

2250 

6412 

5651 

6413 

1643 

6414 

7001 

6415 

36 52 

6416 

1641 

6417 

7001 

6420 

3653 

6421 

1642 

6422 

7001 

6423 

3654 

6424 

1640 

6 42 5 

7001 

6426 

3655 

6427 

2656 

6 430 

1646 

6431 

7001 

6432 

36 57 

6433 

1644 

6434 

7001 

6435 

3660 

6436 

2661 

6437 

5662 

6440 

6150 

6441 

6146 


Table 3, Continued 


FRED, 0 
XROW, 7 141 
YHIGH, 7140 
XSPACE, 0 
YSPACE, 0 
JEFF, 0 
STEVE, 0 
ALANI, ALAN 
XGAP, 0 
STARTI, START 
TIME, 0 

WOWI, wow 

MABEL, 0 
CORA, 0 
M260, 7300 
LOW, 0 
SARAH, 0 
HOPEI, HOPE 
MAYBEI, MAYBE 
XEND, 7145 
YEND, 7 144 
JMS I DISPLI 
HLT 

JMP .-2 . 

DISPLI, DISPLAY 
*6400 


X SPACING bETWEEN CHARACTERS 
Y SPACING bET WEEN ROWS 


X COO RUIN AT E Of- FIXATION POINT 
Y COORDINATE OF FIXATION POINT 


HOPE, ISZ I NUMBRI 
ISZ I XPOSI 
ISZ I YPOSI 
ISZ I EUNICI 
ISZ I GEORGI 
TAD I BTI 
I AC 

DCA I JOANI 
JMP I BOWI 
MAYBE, ISZ CYCLE 
JMP I BEGIN I 
TAD I EUNICI 
I AC 

DCA I PATI 
TAD I XPOSI 
I AC 

DCA I XLINI 
TAD I YPOSI 
I AC 

DCA I YLINI 
TAD I NUMBRI 
I AC 

DCA I EXTNTI 
ISZ I STRNGI 
TAD I JOANI 
I AC 

DCA I ALPHAI 
TAD I GEORGI 
I AC 

DCA I HENRYI 
ISZ I AGAIN I 
JMP I TOPI 
NUMBRI, NUMBER 
XPOSI, XPOS 



REINDEX FOR NEXT STRING 


IS CURRENT CYCLE ALL DONE? 

NO, DO WHOLE DISPLAY CYCLE OVER AGAIN 
YES, RESET VALUES FOR NEXT CYCLE 






6 4 42 

6147 

YPOSI, YPO 5 

6443 

6145 

EUNICI, EUNICE 

6444 

6153 

GEO KG I , GEORGE 

6445 

6164 

BTI , ALAN 

6 446 

6152 

JO AN I, JOAN 

6447 

6047 

BOWI, BOW 

6 450 

0000 

CYCLE> 0 

6451 

6026 

BEGINI, BEGIN 

6452 

6126 

PAT I, PAT 

6453 

6130 

XL INI* XL IN 

6454 

6132 

YLINI, YLIN 

6455 

6134 

EXTNTI * EXTENT 

6456 

6136 

STRNGI> STRING 

6457 

6140 

ALPHAI, ALPHA 

6 460 

6142 

HENRYI > HENRY 

6 461 

6144 

AGAINI, AGAIN 

6 462 

6021 

TOPI, TOP 
*6 500 

6 500 

0000 

0000 

6501 

7702 

7 702 

6 502 

7762 

7762 

6 503 

3720 

3720 

6 504 

7760 

7760 

6 50 5 

7762 

7762 

6506 

7742 

7 742 

6507 

3720 

3720 

6510 

7742 

7 742 

651 1 

0020 

0020 

6512 

3020 

3020 

6513 

7742 

7742 

6514 

7760 

7 760 

651 5 

7740 

7 740 

6516 

7740 

7740 

6517 

3720 

3720 

6520 

7742 

7 742 

6521 

3720 

3720 

6522 

7742 

7742 

6523 

2322 

2322 

6524 

0040 

0040 

6 52 5 

3760 

37 60 

6 526 

0744 

0744 

6 527 

7750 

7750 

6 530 

4045 

4045 

6531 

0040 

0040 

6 532 

4064 

4064 

6533 

7777 

7777 

*6600 

6600 

0000 

0000 

6601 

21 10 

21 10 

6602 

3114 

31 14 

6603 

3014 

30 ! 4 

6604 

3014 

3014 

660 5 

31 14 

3114 

6606 

21 10 

21 10 

6607 

3217 

3217 

6610 

0100 

0100 

661 1 

3774 

3774 

6612 

1013 

1013 

6613 

0242 

0242 

6614 

1004 

1004 






6615 

4040 

4040 

6616 

4102 

4102 

6617 

3014 

3014 

6620 

21 10 

21 10 

6621 

3216 

3216 

6622 

21 1 1 

2111 

6623 

3114 

31 14 

6624 

3770 

3770 

6625 

1004 

1004 

6626 

0401 

0401 

6627 

0202 

0202 

6630 

0101 

0101 

6631 

5740 

5740 

6632 

3114 

31 14 

6633 

7777 

7777 

*6700 

6700 

0000 

0000 

6701 

4774 

4774 

6702 

4554 

4554 

67^3 

0504 

0504 

6704 

0574 

0574 

6705 

4602 

4602 

6706 

4402 

4402 

6707 

0444 

0444 

6710 

4376 

4376 

671 1 

0400 

0400 

6712 

7402 

7 402 

6713 

1202 

1202 

6714 

0200 

0200 

6715 

1376 

1376 

6716 

0376 

0376 

6717 

0574 

0574 

6720 

4414 

4414 

6721 

0774 

0774 

*6 722 

4714 

4714 

6723 

4544 

4544 

6 724 

0402 

0402 

6725 

0176 

0176 

6726 

0036 

0036 

6727 

0376 

0376 

6730 

2202 

2202 

6731 

1002 

1002 

6732 

2602 

2602 

6733 

7777 

7777 





Button Subroutine 


Figure 1 (right side) and Table 4 contain the flowchart and 
program listing for a subroutine which both listens for button presses, 
and records choices and their reaction times. The subroutine begins 
at location 7000 g (3584 l0 ), although it can be moved elsewhere by 
changing Statement 28 in the Driver program. Note that the storage 
location for the code of the button that was pressed (RESP) and the 
counter for reaction time (IRT) are assigned by the FORTRAN compiler. 

This subroutine is used even when reaction time is not needed - 
only detection of a button press. In the latter case it will accumulate 
a reaction time which will be subsequently erased. 

When reaction time is desired, the time is counted from the 
instant the subroutine is entered. Thus, with the present Driver 
program, time is counted from the offset of the last event displayed. 

It is not possible without changing this Driver program, to accumulate 
reaction time while the characters are still being displayed. 





Table 4 


7000 
7 001 
7002 
7 ff'J 3 
700 ^ 
7 03 5 
7306 
7007 
7010 
701 1 

7012 

7013 

7014 

7015 

7016 

7017 

7020 

7021 
7 022 

7023 

7024 

7025 

7026 

7027 
7 030 
7031 
7 032 
7 033 
7934 

7035 

7036 

7037 
7040 


Subroutine for Button Sensing 


*7000 


0000 

BUTTON# 

0303 

LINK BACK TO FORTRAN 

7200 


CLA 

CLEAR AC 

3231 


UCA CNT 

SET RT COUNTER TO ZERO 

6612 


6612 

CLEAR BUTTON bI ROSE FLAG 

661 1 

LISTEN, 

661 1 

WAS A BUTTON PnESSED? 

5217 


JMP MSEC 

NO, GO TO ADD 1 MILLISECOND TO COUNTER 

6651 


6651 r - 

- YES, LOAD AC WITH BUTTON CODE 

6651 


6651 J 


6651 


6651 Y 


6651 


6651 / 


6651 


6651 C_ 


3632 


DCA I IRES 

ptfOoii button code in fortran location 

1 23 1 


TAD CNT 

LOAD RT COUNTER . pf)R RESPONSE 

3633 


DCA I IkT 

DEPOSIT RT VALUE IN FORTRAN LOCATION FOR RT 

5600 


JMP I BUTTON 

£xn 

2231 

MSEC# 

ISZ CN'l 

ADD 1 TO RT COUNTER; HAVE 4 SECONDS ELAPSED? 

5224 


JMP LOOP 

NO, GO TO WAIT ONE MORE MILLISECOND 

3632 


DCA I IkES 

YES, DEPOSIT 0 IN FORTRAN HUTTON LOCATION 

3633 


DCA I IkT 

DEPOSIT 0 IN F0KTRAN RT LOCAT10N 

5600 


JMP I BUTTON 

EXIT 

1234 

LOOP, 

TAD M260 

LOAD AC WITH TIME CONSTANT 

3235 


DCA TIME 

STORE IT 

2235 


ISZ TIME 

HAS 1 MILLISECOND PASSED? 

7026 


JMP. - 1 

NO, CHECK AGAIN 

5204 


JMP LISTEN 

YES, RETURN TO CHECK FOR A BUTTON PRESS 

0000 

CNT, 

0000 

RT COUNTER 

7 136 

IKES, 

7 136 

FORTRAN LOCATION FOR RESPONSE CODE 

7137 

IRT, 

7 137 

FORTRAN LOCATION FOR REACTION TIME 

7 300 

M260# 

7 300 

TIME CONSTANT 

0000 

TIME, 

0000 

TIME CONSTANT STORE 

4203 

BEGIN# 

JMS BUTTON 


7402 


HLT C 

ENTRY POINT TO TEST SUBROUTINE 

7036 


JMP.-2 J> 

















